"! "
Object subclass: AllTests [
| tests |
<category: ''>
"! "
addTest: test [
tests isNil ifTrue: [
	tests := Array new.
].
tests := tests with: test.
]

"! "
main [
self addTest: ArrayTest;
	 addTest: ByteArrayTest;
	 addTest: SmallIntTest;
	 addTest: BlockTest.
self runAll.
]

"! "
runAll [
|failed|
failed := 0.

tests do: [ :test |
	'' printNl.
	'Running tests for ' print.
	test printNl.
	failed := failed + test new run.
].
'---' printNl.
failed print.
' tests failed.' printNl.
]

]

"! "
MetaObject subclass: MetaAllTests [
<category: ''>
]

